home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / tex-k / lucida-1.2.tar.gz / lucida-1.2.tar / lucida-1.2 / lucidamath.tex < prev    next >
Text File  |  1992-04-29  |  2KB  |  65 lines
  1. % Set up to use the Lucida fonts in math mode.
  2.  
  3. \catcode`\@ = 11
  4.  
  5. % Use Lucida Bright for the text.
  6. \font\tenrm = plcr at 10pt
  7. \font\sevenrm = plcr at 7pt
  8. \font\fiverm = plcr at 5pt
  9.  
  10. \font\tentt = plcrst at 10pt
  11. \font\seventt = plcrst at 7pt
  12. \font\fivett = plcrst at 5pt
  13.  
  14. \font\teni = plcrm at 10pt   \skewchar\teni = '177
  15. \font\seveni = plcrm at 7pt  \skewchar\seveni = '177
  16. \font\fivei = plcrm at 5pt   \skewchar\fivei = '177
  17.  
  18. \font\tensy = plcry at 10pt  \skewchar\tensy = '60
  19. \font\sevensy = plcry at 7pt \skewchar\sevensy = '60
  20. \font\fivesy = plcry at 5pt  \skewchar\fivesy = '60
  21.  
  22. \font\tenex = plcrv at 10pt
  23.  
  24. \textfont0 = \tenrm  \scriptfont0 = \sevenrm  \scriptscriptfont0 = \fiverm
  25. \textfont1 = \teni   \scriptfont1 = \seveni   \scriptscriptfont1 = \fivei
  26. \textfont2 = \tensy  \scriptfont2 = \sevensy  \scriptscriptfont2 = \fivesy
  27. \textfont3 = \tenex  \scriptfont3 = \tenex    \scriptscriptfont3 = \tenex
  28.  
  29. % We need more leading, and hence a slightly different strut.
  30. \baselineskip = 13pt
  31. \setbox\strutbox = \hbox{\vrule height9.1pt depth3.9pt width0pt}
  32.  
  33. % Increase the standard spacings.
  34. \thinmuskip = 4mu
  35. \medmuskip = 6mu plus3mu minus6mu
  36. \thickmuskip = 8mu plus8mu
  37.  
  38. % Leave a little more space in general before {super,sub}scripts.
  39. \scriptspace = .65pt
  40.  
  41. % With the change in \medmuskip, \bmod has to change.
  42. \def\bmod{\mskip-\medmuskip\mkern7.5mu
  43.   \mathbin{\rm mod}\penalty900\mkern7.5mu\mskip-\medmuskip}
  44.  
  45. % Plain's value of 3mu for \joinrel makes the hooks in
  46. % \hook{left,right}arrow merge with the arrows too far in.  However, we
  47. % need the 3mu for the \bowtie and \mapsto, at least.  
  48. \def\hookrightarrow{\lhook\mathrel{\mkern-1.5mu}\rightarrow}
  49. \def\hookleftarrow{\leftarrow\mathrel{\mkern-1.5mu}\rhook}
  50.  
  51. % When we're doing Nth roots, the N comes out far too close to the
  52. % radical.
  53. \def\r@@t#1#2{\setbox\z@\hbox{$\m@th#1\sqrt{#2}$}
  54.   \dimen@\ht\z@ \advance\dimen@-\dp\z@
  55.   \mkern5mu\raise.6\dimen@\copy\rootbox \mkern-8mu \box\z@}
  56.  
  57. % Lucida text fonts typically don't have Greek letters, so we have to
  58. % redefine uppercase Greek to use the math italic font.
  59. \mathchardef\Gamma="100 \mathchardef\Delta="101
  60. \mathchardef\Theta="102 \mathchardef\Lambda="103 \mathchardef\Xi="104
  61. \mathchardef\Pi="105 \mathchardef\Sigma="106 \mathchardef\Upsilon="107
  62. \mathchardef\Phi="108 \mathchardef\Psi="109 \mathchardef\Omega="10A
  63.  
  64. \catcode`@ = 12
  65.